home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1992 January
/
1992-01.d64
/
improved fre
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
976b
|
32 lines
0 clr
10 rem improved fre()
20 ck=0
30 for i=828 to 1014
40 read b:poke i,b:ck=ck+b
50 next
60 if ck<>24802 then print"error in data statements":stop
70 poke 785,60:poke 786,3
80 print "program installed":end
90 data 32,161,183,224,0,208,19,165,51
100 data 133,251,165,52,133,252,165,49
110 data 133,253,165,50,133,254,76,198
120 data 3,224,1,208,19,165,45,133,251
130 data 165,46,133,252,165,43,133,253
140 data 165,44,133,254,76,198,3,224,2
150 data 208,19,165,47,133,251,165,48
160 data 133,252,165,45,133,253,165,46
170 data 133,254,76,198,3,224,3,208,19
180 data 165,49,133,251,165,50,133,252
190 data 165,47,133,253,165,48,133,254
200 data 76,198,3,224,4,208,19,165,55
210 data 133,251,165,56,133,252,165,51
220 data 133,253,165,52,133,254,76,198
230 data 3,224,5, 208,41,165,55,133,251
240 data 165,56,133,252,165,43,133,253
250 data 165,44,133,254,32,228,3,165,4
260 data 164,3,32,145,179,32,43,188,201
270 data 255,208,7,169,242,160,3,32,103
280 data 184,96,162,14,108,0,3,56,165
290 data 251,229,253,133,3,165,252,229
300 data 254,133,4,96,144,127,255,0,0